home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
aie8911.zip
/
V3.ARI
< prev
next >
Wrap
Text File
|
1989-08-26
|
1KB
|
40 lines
% stub_trace.
/***************** the system - v. 2 ****************************/
/***************** the test *************************************/
test :- process_housing_units.
/************* end the test *************************************/
%%%%%%%%%%%%%%%% process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- init_ops.
/*
data ([ name: order_date,
def : $day salesman calls in order$,
representation : ( Year, Month, Day) ].
*/
stub [ call : process_housing_units ,
purpose: $processes housing units$].
:- turn( process_housing_units, on).
:- show( process_housing_units, on).
%%%%%%%%%%%% end process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
stub [ call : data_collected_q( Housing_unit ),
purpose: $decides if data was collected for Housing_unit$].
stub [ call : put_in_sample( Housing_unit ),
purpose: $puts data into sample for used for CPI$].
/************* end the system - v. 2 ****************************/